home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d10
/
ps1410.arc
/
CALU.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-10-31
|
2KB
|
37 lines
'=========================================================================
' Personal Calendar (PC) Program
' Copyright (c) 1985-1990, Paul Munoz-Colman. All Rights Reserved.
' Version 14.10
' 31 Oct 1990
' Shareware $25
'=========================================================================
' DOS File CALU.BAS -- Display Shareware Banner
' Independently Compiled Subprogram Which Is Linked With CAL1.BAS
'=========================================================================
' $INCLUDE: 'cal1.bi'
'=========================================================================
' Written For IBM PCs & Compatibles Under MS DOS 3.30 on a Northgate 486
' Compiled By Microsoft Professional BASIC 7.10, Linker Version 5.10
'=========================================================================
' Note -- Tabs in the source file are in positions 6,11,16,21,26,...
'=========================================================================
' Subprogram List in the Order of Appearance in this File
' (compiled WITHOUT error handling--no /E or /X)
'-------------------------------------------------------------------------
' Name Purpose
' --------------------------- ---------------------------------------
' ValidateUser Display Shareware Banner
'=========================================================================
SUB ValidateUser (WhichLine)
'=========================================================================
' (boilerplate module which replaces registration validation)
DEFINT A-Z
SubnumSave = Subnum
Subnum = 140
CALL ShowIt(N6, WhichLine + N2, N54, "Shareware $25")
Subnum = SubnumSave
END SUB
'========================================================================
'======================== END OF CALU.BAS =============================
'========================================================================